# Tabela de todas as turnês

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Data de Início:`=min(Date),
                   `Data de Término`=max(Date)) |> 
  dplyr::arrange(`Data de Início:`) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Lista de Turnês da banda Metallica**"),
    subtitle=gt::md("A primeira ocorreu no ano de 1983 para a divulgação de seu disco de estréia")
  ) |> 
  gt::tab_footnote(
    footnote = gt::md("Dados registrados até o ano de 2018; a turnê 'WorldWired' ainda está ocorrendo"),
    locations = gt::cells_column_labels(
      columns= Tour
    )
  ) |> 
  gt::tab_options(
    container.height = 500
  )

# Tabela das top 5 turnes por duração em dias

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Duração em dias`=max(Date)-min(Date)) |> 
  dplyr::arrange(desc(`Duração em dias`)) |> 
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Top 5 turnês mais duradouras da banda Metallica**"),
    subtitle=gt::md("A turnê 'WorldWired' tem tudo para bater ainda mais recordes, dito que ainda está ocorrendo no presente ano de 2021")
  ) 

# Tabela das top 5 turnês por quantidade de shows

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Quantidade de Shows`= dplyr::n()) |> 
  dplyr::arrange(desc(`Quantidade de Shows`)) |> 
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Top 5 turnês com mais shows da banda Metallica**"),
    subtitle=gt::md("A lendária 'Wherever We May Roam' foi a maior de todas, com 229 shows")
  ) 

# Gráfico da razão dias/show por ano

metallica |>
  dplyr::group_by(Year) |> 
  dplyr::summarise(days_show_ratio = (max(Date)-min(Date))/dplyr::n()) |> 
  dplyr::arrange(Year) |> 
  ggplot2::ggplot(ggplot2::aes(x = Year, y = as.numeric(days_show_ratio)))+
  ggplot2::geom_line()+
  ggplot2::labs(x = "Ano",y = "Média de Dias entre Shows",
                title="Quantidade Média de Dias entre Shows ao longo dos anos",
                subtitle="O ano com os shows mais espaçados, no geral, foi o de 1995")

# Tabela das 5 turnês com menor razão dias/show por turnê

mais_corrida <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Razão Dias/Show`= round(
    (max(Date)-min(Date))/dplyr::n(),digits=2
  )) |> 
  dplyr::arrange(`Razão Dias/Show`) |>
  dplyr::top_n(-5) |> 
  gt::gt() |> 
  gt::as_raw_html()

# Tabela das 5 turnês com maior razão dias/show por turnê

menos_corrida <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Razão Dias/Show`= round(
    (max(Date)-min(Date))/dplyr::n(),digits=2
  )) |> 
  dplyr::arrange(desc(`Razão Dias/Show`)) |>
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::as_raw_html()

data.frame(menos_corrida, mais_corrida) |> 
  gt::gt() |> 
  gt::fmt_markdown(columns = dplyr::everything()) |> 
  gt::cols_label(menos_corrida = "Top 5 Turnês menos 'corridas'",
                 mais_corrida = "Top 5 Turnês mais 'corridas'") |> 
  gt::tab_header(
    title = gt::md("Turnês mais e menos 'corridas' da banda Metallica"),
    subtitle = gt::md("O ritmo mais pesado chegou a um show para cada 1,18 dias; o mais leve foi de um show para cada 9,78 dias")
  )